home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / mcf_auto.amirx < prev    next >
Text File  |  1996-12-22  |  2KB  |  11 lines
  1. /* MCF_Auto.AMIRX
  2. // $VER: MCF_Auto.AMIRX 4.11 (22.12.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. //    Put this script in REXX:
  9. \len = writeln('console', "       It will be used by MCF.
  10. */
  11. ;parse arg MCFenv junk;validnames="SOUNDPLAYER SPEAKPLAYER DCCDIR SOUNDDIR";Vdirfile=4;validnames=validnames||" GREETS";Vcnpy=Vdirfile+1;validnames=validnames||" NOSOUNDS";Vnums=Vcnpy+1;validnames=validnames||" AJOIN ASEND DCCGET FSERV OPS PSOUND RCMDS SOUNDS SPEAK";Vyn=Vnums+9;if ~open('console',"con:0/0/320/200/MCF &AUTO Config Screen",'W') then exit;len=writeln('console'," ");len=writeln('console',"  Select Variable you wish to set.");len=writeln('console'," ");do cntr=1 by 1 until cntr=Vyn;parse value validnames with varg.cntr validnames;warg="   "||left(cntr||":",5)||varg.cntr;len=writeln('console',warg);end;len=writeln('console'," ");ans=readln('console');call close('console');if ans<1|ans>cntr then exit;select;when ans ~>Vdirfile then call SetDirFiles();when ans=Vcnpy then call SetGreets();when ans=Vnums then call SetNoSounds();otherwise call SetYN();end;address(MCFenv);options results;getmynick;"Raw PRIVMSG" result ":%AUTO" varg.ans VSvalue;exit;SetDirFiles:;rtfi="";if ans<3 then;GUImsg="Pick File for "||varg.ans;else;do;GUImsg="Pick Directory for "||varg.ans;rtfi="rtfi_flags = freqf_nofiles";end;VSvalue=rtfilerequest("Ram:",,GUImsg,,rtfi);if VSvalue="" then exit;return;SetGreets:;VSarg=rtezrequest("GREETS","_C | _N | _P | _Y | _Cancel","Select setting for GREETS");select;when VSarg=4 then VSvalue="Y";when VSarg=3 then VSvalue="P";when VSarg=2 then VSvalue="N";when VSarg=1 then VSvalue="C";otherwise exit;end;return;SetNoSounds:;VSarg=rtezrequest("NOSOUNDS","_0 | _1 | _2 | _3 | _4 | _5 | _6 | _7 | _8 | _9 |  _Cancel","Select setting for NOSOUNDS");if VSarg=0 then exit;VSvalue=VSarg-1;return;SetYN:;VSarg=rtezrequest(varg.ans,"_N | _Y | _Cancel","Select setting for" varg.ans);select;when VSarg=2 then VSvalue="Y";when VSarg=1 then VSvalue="N";otherwise exit;end;return